Column

Chart A

Column

Chart B

test <- shiny::selectInput("name_select", 
                   label = "Select LGA", 
                   choices = c("Test 1" = "test1", 
                               "Test 2" = "test2"), selected = "test1")

test

Chart C

tt <- test$children %>%
  purrr:::pluck(2) %>%
  purrr::pluck("children") %>%
  purrr::pluck(1) %>%
  as.character() %>%
  stringr::str_extract(
    "selected>.*<"
  ) %>%
  stringr::str_remove("selected")%>%
  stringr::str_remove(">")%>%
  stringr::str_remove("<")

tt
[1] "Test 1"
---
title: "Example Outputs"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: scroll
    source_code: embed
runtime: shiny
---

```{r setup, include=FALSE}
library(flexdashboard)
library(niksmacrohelpers)
```

Column
-----------------------------------------------------------------------

### Chart A

```{r}



```

Column {.tabset}
-----------------------------------------------------------------------

### Chart B

```{r userinputs1, echo=TRUE}
test <- shiny::selectInput("name_select", 
                   label = "Select LGA", 
                   choices = c("Test 1" = "test1", 
                               "Test 2" = "test2"), selected = "test1")

test

```

### Chart C

```{r chart3, echo=TRUE}
tt <- test$children %>%
  purrr:::pluck(2) %>%
  purrr::pluck("children") %>%
  purrr::pluck(1) %>%
  as.character() %>%
  stringr::str_extract(
    "selected>.*<"
  ) %>%
  stringr::str_remove("selected")%>%
  stringr::str_remove(">")%>%
  stringr::str_remove("<")

tt

```